home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / killth1a / playgame.bas < prev    next >
BASIC Source File  |  1999-09-01  |  2KB  |  80 lines
  1. Attribute VB_Name = "Module1"
  2. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  3. 'Exit the game always by pressing F12 !!!!!
  4. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  5. '************************************************************
  6. '   My original language is dutch, so for your understanding:
  7. '   Kogel means bullet
  8. '   Gif means posion
  9. '   GifSpuit is the spitting of posion
  10. '   This is just for you to better understand the codes
  11. '   Enjoy the game
  12. '   If you know new features, add them and put them online
  13. '   My email address is agrisman@hotmail.com
  14. '************************************************************
  15. Option Explicit
  16.  
  17. Global nrKogel As Integer
  18. Global Bullet0 As Integer
  19. Global Bullet1 As Integer
  20. Global Bullet2 As Integer
  21. Global Bullet3 As Integer
  22. Global Bullet4 As Integer
  23. Global Bullet5 As Integer
  24. Global Bullet6 As Integer
  25. Global Bullet7 As Integer
  26. Global Bullet8 As Integer
  27. Global Bullet9 As Integer
  28. Global Bullet10 As Integer
  29. Global nrGif As Integer
  30. Global Gif0 As Integer
  31. Global Gif1 As Integer
  32. Global Gif2 As Integer
  33. Global Gif3 As Integer
  34. Global Gif4 As Integer
  35. Global Gif5 As Integer
  36. Global Gif6 As Integer
  37. Global Gif7 As Integer
  38. Global Gif8 As Integer
  39. Global Gif9 As Integer
  40. Global Gif10 As Integer
  41. Global Gif11 As Integer
  42. Global Gif12 As Integer
  43. Global Gif13 As Integer
  44. Global Gif14 As Integer
  45. Global Gif15 As Integer
  46. Global Gif16 As Integer
  47. Global Gif17 As Integer
  48. Global Gif18 As Integer
  49. Global Gif19 As Integer
  50. Global Gif20 As Integer
  51. Global Gif21 As Integer
  52. Global gifM As Integer
  53. Global Howmuch As Integer
  54. Global track As Integer
  55. Global Tel, Ran As Integer
  56. Global Kill, Victory, GameOver As Integer
  57. Global WichSide As Integer
  58. Global GifSpuitAction As Integer
  59. Global TimeS As Integer
  60. Global TimeM As Integer
  61.  
  62. 'This is to make sure the mouse can not be moved
  63. Public Type RECT
  64. Left As Long
  65. Top As Long
  66. Right As Long
  67. Bottom As Long
  68. End Type
  69.  
  70. Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
  71.  
  72. 'Declare function to play music and sfx
  73. Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
  74. Public Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  75.  
  76. Public Const Music = "passport.mid"
  77.  
  78.  
  79.  
  80.